#!./perl
#req_more_info.pl

# get args
$name = @ARGV[1];
#while (@ARGV) {
#$ARGV=shift;
#$orig = $ARGV; 
#$name = $orig;
#$name =~ s/-.*//g; 
#$param = $orig; 
#$param =~ s/.*-//g; 
#}

$~ = HTMLHEADER;
write STDOUT;


print "<h2> $name @ARGV</h2>";
$~ = HTMLFOOTER;
write STDOUT;
##############################################################################
format HTMLHEADER =
Content-type: text/html



<html>
<head>
<title>CDware Test</title>
</head>
.
##############################################################################
format HTMLFOOTER =

        </BODY>


    </HTML>
.
